home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / gfx / show / ViewTool.lha / ViewTool / Rexx / Example.rexx
Encoding:
OS/2 REXX Batch file  |  1998-03-29  |  338 b   |  24 lines
  1. /* $VER: Test ViewTool's ARexx Port
  2.  */
  3.  
  4. OPTIONS RESULTS
  5.  
  6. ADDRESS 'ViewToolRexx'
  7.  
  8. LOADIMAGE 'X:Clown.pic'
  9. res1 = RC     
  10. res2 = RESULT
  11.                     
  12. IF res1 = 0 THEN
  13.     DO
  14.         SAY 'Image loaded successfully'
  15.         FREEIMAGE res2
  16.     END
  17. ELSE
  18.     DO
  19.         SAY 'result  =' res1
  20.         SAY 'result2 =' res2
  21.     END
  22.  
  23. EXIT(0)
  24.